home *** CD-ROM | disk | FTP | other *** search
/ Digital News 2 / Digital_News_2_1988_-_de_Side_B.d64 / get_print .src < prev    next >
Text File  |  2022-10-26  |  1KB  |  121 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9.  
  10.  
  11.  
  12.  
  13.  
  14.  
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  
  21. get      sta $02
  22.          stx anf+1
  23.          sty end+1
  24.          ldy $d3
  25.          sty $03
  26.  
  27. key
  28.          ldy $d3
  29.          lda #$20
  30.          sta ($d1),y
  31.  
  32.          lda #$00
  33.          sta $cc
  34.          sta $c6
  35. key1
  36.          lda $c6
  37.          beq key1
  38.  
  39.  
  40.          lda $0277
  41.          cmp #$14
  42.          bne return
  43.          ldy $d3
  44.          cpy $03
  45.          beq key
  46.          lda #$20
  47.          sta ($d1),y
  48.          dec $d3
  49.          inc $02
  50.          jmp key
  51.  
  52.  
  53.  
  54. return
  55.  
  56.          cmp #$0d
  57.          bne ausgabe
  58.          ldy $d3
  59.          cpy $03
  60.          beq key
  61.  
  62.          jmp ende
  63.  
  64.  
  65. ausgabe
  66.          ldy $02
  67.          cpy #$ff
  68.          beq key
  69.  
  70. anf      cmp #$20
  71.          bmi key
  72. end      cmp #$60
  73.          bpl key
  74.  
  75.          and #$3f
  76.          ldy $d3
  77.          sta ($d1),y
  78.          inc $d3
  79.          dec $02
  80.          jmp key
  81.  
  82. ende
  83.          lda $04
  84.          beq rrr
  85.  
  86.          lda $02
  87.          cmp #$ff
  88.          bne key
  89.  
  90. rrr
  91.          lda #$01
  92.          sta $cc
  93.  
  94.  
  95.          lda #$20
  96.          jmp $ffd2
  97.  
  98.  
  99. um
  100.  
  101.          pha
  102.          lda $fb
  103.          jsr umw
  104.          sta $fb
  105.          pla
  106.          jsr umw
  107.          asl a
  108.          asl a
  109.          asl a
  110.          asl a
  111.          ora $fb
  112.          rts
  113.  
  114. umw      cmp #$41
  115.          sec
  116.          bmi yes
  117.          sbc #$07
  118. yes      sbc #$30
  119.          rts
  120.  
  121.